home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / s / deliinsertdisk < prev    next >
Encoding:
AmigaDOS Script File  |  1996-07-16  |  990 b   |  25 lines
  1. .key VOLUME/A,DATABASE/A
  2. .bra {
  3. .ket }
  4. ;----------------------------------------------------------------
  5. ; -DISKINSERTED-Script- make yourself familiar how the script works
  6. ; to create your own (optimized) one. that what i call a "database"
  7. ; is infact only a poor textfile; maybe you can offer me a more
  8. ; complex database, i.e. an arexx script for FinalData or so ?
  9. ;----------------------------------------------------------------
  10. C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "{VOLUME}" NONUM
  11. If WARN
  12.   C:Type pipe:db.{$$} >NIL: ; clear the pipe
  13.   C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "default:" NONUM
  14.   If WARN
  15.     C:Type pipe:db.{$$} >NIL:
  16.     C:RequestChoice >NIL: "Error Message" "{DATABASE} has no default: entry!*NYou MUST provide at least an empty program." "Ok"
  17.     Skip AllOver
  18.   EndIf
  19. EndIf
  20. set progname `c:type pipe:db.{$$}`
  21. echo ".key a,b/f*N.bra <*N.ket >*Necho <b>*N" >T:filter.{$$}
  22. setenv DELIPROGRAM `execute T:filter.{$$} $progname`
  23. Lab AllOver
  24. unset progname
  25.